home *** CD-ROM | disk | FTP | other *** search
- object ExtractForm: TExtractForm
- Left = 226
- Top = 206
- Width = 496
- Height = 371
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Extract'
- Color = clBtnFace
- ParentFont = True
- KeyPreview = True
- OldCreateOrder = True
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnKeyPress = FormKeyPress
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object ExtractToL: TLabel
- Left = 8
- Top = 8
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'E&xtract to:'
- FocusControl = Destination
- end
- object FolderDrivesL: TLabel
- Left = 227
- Top = 56
- Width = 121
- Height = 13
- AutoSize = False
- Caption = '&Folders/drives:'
- end
- object Bevel1: TBevel
- Left = 4
- Top = 302
- Width = 479
- Height = 8
- Shape = bsTopLine
- end
- object Destination: TComboBox
- Left = 8
- Top = 24
- Width = 441
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- OnChange = DestinationChange
- end
- object FilesGroup: TGroupBox
- Left = 8
- Top = 56
- Width = 209
- Height = 89
- Caption = ' Files '
- TabOrder = 2
- object SelectedFiles: TRadioButton
- Left = 8
- Top = 16
- Width = 193
- Height = 17
- Caption = '&Selected files'
- TabOrder = 0
- end
- object AllFilesButt: TRadioButton
- Left = 8
- Top = 40
- Width = 193
- Height = 17
- Caption = '&All files'
- TabOrder = 1
- end
- object CFiles: TRadioButton
- Left = 8
- Top = 64
- Width = 57
- Height = 17
- Caption = 'F&iles:'
- TabOrder = 2
- OnClick = CFilesClick
- end
- object FileSpec: TEdit
- Left = 64
- Top = 62
- Width = 137
- Height = 21
- TabOrder = 3
- Text = 'FileSpec'
- OnEnter = FileSpecEnter
- end
- end
- object ExplorerButt: TButton
- Left = 457
- Top = 24
- Width = 25
- Height = 21
- Caption = '->'
- TabOrder = 1
- OnClick = ExploreButtClick
- end
- object NewFolderButt: TButton
- Left = 381
- Top = 272
- Width = 99
- Height = 25
- Caption = '&New Folder...'
- TabOrder = 4
- OnClick = NewFolderButtClick
- end
- object ExtractButt: TButton
- Left = 247
- Top = 309
- Width = 75
- Height = 25
- Caption = '&Extract'
- Default = True
- TabOrder = 5
- OnClick = ExtractButtClick
- end
- object CancelButt: TButton
- Left = 327
- Top = 309
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 7
- OnClick = CancelButtClick
- end
- object HelpButt: TButton
- Left = 409
- Top = 309
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 6
- OnClick = HelpButtClick
- end
- object ElGroupBox1: TGroupBox
- Left = 8
- Top = 154
- Width = 209
- Height = 87
- Caption = ' Options '
- TabOrder = 3
- object OverwriteExisting: TCheckBox
- Left = 8
- Top = 16
- Width = 193
- Height = 17
- Caption = '&Overwrite existing files'
- TabOrder = 0
- end
- object UseFolderNames: TCheckBox
- Left = 8
- Top = 40
- Width = 193
- Height = 17
- Caption = 'Do not extract &pathnames'
- TabOrder = 1
- end
- object CheckBox1: TCheckBox
- Left = 8
- Top = 64
- Width = 193
- Height = 17
- Caption = 'Open fol&der after extracting'
- TabOrder = 2
- end
- end
- object treelist: TVirtualExplorerTreeview
- Left = 224
- Top = 72
- Width = 257
- Height = 193
- Active = True
- ColumnDetails = cdUser
- DefaultNodeHeight = 17
- DragHeight = 250
- DragWidth = 150
- FileSizeFormat = fsfExplorer
- FileSort = fsFileType
- Header.AutoSizeIndex = 0
- Header.Font.Charset = DEFAULT_CHARSET
- Header.Font.Color = clWindowText
- Header.Font.Height = -11
- Header.Font.Name = 'MS Shell Dlg 2'
- Header.Font.Style = []
- Header.MainColumn = -1
- Header.Options = [hoColumnResize, hoDrag]
- HintMode = hmHint
- IncrementalSearch = isVisibleOnly
- ParentColor = False
- RootFolder = rfDesktop
- TabOrder = 8
- TabStop = True
- TreeOptions.AutoOptions = [toAutoScroll]
- TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick]
- TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused]
- TreeOptions.SelectionOptions = [toSiblingSelectConstraint]
- TreeOptions.VETShellOptions = [toContextMenus]
- TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget]
- TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toChangeNotifierThread, toRemoveContextMenuShortCut]
- TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy]
- OnChange = aa
- Columns = <>
- end
- end
-